www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\center_zhang.asp
<!-- #include file="conn.asp" -->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v4.0
'****************************************************
%>
<html>
<head>
<title><%=sitename%>-帐户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/admin.css" rel="stylesheet" type="text/css" />
<script src="js/common.js" type="text/javascript"></script>
<script src="images/main.js" type="text/javascript"></script>
<style>
body {
background-color:#FFFFFF;
}
</style>
</HEAD>
<BODY>
<table align="left" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<tr align="center">
<td class="category">帐号</td>
<%
if nowtype="" then
sql="select * from Eptime_zhanghu order by type,id"
else
sql="select * from Eptime_zhanghu where type="&nowtype&" order by id"
end if
set rs_zhanghu=conn.execute(sql)
do while rs_zhanghu.eof=False
%>
<td align="right" height="25"><a title="<%if rs_zhanghu("type")=0 then%>固定资产账户<%ElseIf rs_zhanghu("type")=1 then%>现金账户<%ElseIf rs_zhanghu("type")=2 then%>储蓄账户<%ElseIf rs_zhanghu("type")=3 then%>信用卡账户<%ElseIf rs_zhanghu("type")=4 then%>借贷账户<%ElseIf rs_zhanghu("type")=5 then%>投资账户<%ElseIf rs_zhanghu("type")=6 then%>其他账户<%end if%>，初始金额为：<%=rs_zhanghu("amount0")%>"><%=rs_zhanghu("name")%> [<a href="zhanghu_list.asp?id=<%=rs_zhanghu("id")%>" target="_blank">对账</a>]</a>
</td>
<%
rs_zhanghu.movenext
loop
%>
<td height="30" class="category">合计</td>
</tr>
<tr align="center">
<td class="category">余额</td>
<%
if nowtype="" then
sql="select * from Eptime_zhanghu order by type,id"
else
sql="select * from Eptime_zhanghu where type="&nowtype&" order by id"
end if
set rs_zhanghu=conn.execute(sql)
do while rs_zhanghu.eof=False
sqlcount="select * from Eptime_money where zhanghu="&rs_zhanghu("id")&" order by id"
%>
<td align="right"><%=formatnumber(rs_zhanghu("amount"),2)%> <a href="excel.asp?mysql=<%=Server.URLEncode(""&sqlcount&"")%>&mytype=a"><img src="images/excel.jpg" border="0" align="absmiddle" alt="导出excel明细表"></a> </td>
<%
rs_zhanghu.movenext
loop
%>
<%
set count_amount = server.createobject("ADODB.RecordSet")
count_amount.open sql,conn,1,3
nowprice=0
do while count_amount.eof=false
nowprice=nowprice+count_amount("amount")
count_amount.movenext
Loop
%>
<td class="category"><b><%=formatnumber(nowprice,2)%></b></td>
</tr>
</table>
</body>
</html>